home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / udpchat / old_stuff / udpfuncsv1.2.bb2 < prev    next >
Unknown  |  1999-05-14  |  3.2 KB
view JSON data     |     view as text     |     open on a Mac     |     open on a PC

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: ';-----------------------------------------------------------' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 20 |--------|----.;  |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 55 44 50 5f |        |    UDP_|
|00000050| 46 75 6e 63 73 20 20 56 | 31 2e 32 20 20 32 37 2f |Funcs  V|1.2  27/|
|00000060| 30 37 2f 39 38 20 62 61 | 73 65 64 20 6f 6e 00 3b |07/98 ba|sed on.;|
|00000070| 20 53 74 61 6e 64 61 72 | 64 20 42 6c 69 74 7a 20 | Standar|d Blitz |
|00000080| 54 43 50 20 46 75 6e 63 | 74 69 6f 6e 73 20 56 31 |TCP Func|tions V1|
|00000090| 2e 35 20 62 79 20 50 61 | 75 6c 20 42 75 72 6b 65 |.5 by Pa|ul Burke|
|000000a0| 79 20 28 63 29 31 39 39 | 37 00 3b 20 43 6f 6d 70 |y (c)199|7.; Comp|
|000000b0| 69 6c 65 64 20 77 69 74 | 68 20 68 65 6c 70 20 66 |iled wit|h help f|
|000000c0| 72 6f 6d 20 45 72 63 6f | 6c 65 20 53 70 69 74 65 |rom Erco|le Spite|
|000000d0| 72 69 20 61 6e 64 20 41 | 6e 74 6f 6e 20 52 65 69 |ri and A|nton Rei|
|000000e0| 6e 61 75 65 72 00 3b 20 | 59 6f 75 20 6d 75 73 74 |nauer.; |You must|
|000000f0| 20 68 61 76 65 20 74 68 | 65 20 62 73 64 73 6f 63 | have th|e bsdsoc|
|00000100| 6b 65 74 2e 6c 69 62 72 | 61 72 79 20 73 65 74 75 |ket.libr|ary setu|
|00000110| 70 20 69 6e 20 42 6c 69 | 74 7a 00 3b 20 20 20 62 |p in Bli|tz.;   b|
|00000120| 79 20 41 6e 74 6f 6e 20 | 52 65 69 6e 61 75 65 72 |y Anton |Reinauer|
|00000130| 20 61 6e 74 6f 6e 40 77 | 77 2e 63 6f 2e 6e 7a 00 | anton@w|w.co.nz.|
|00000140| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 3b 2d |--------|----..;-|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 00 3b 20 53 74 61 6e 64 | 61 72 64 20 55 44 50 20 |.; Stand|ard UDP |
|000001b0| 42 6c 69 74 7a 20 46 75 | 6e 63 74 69 6f 6e 73 00 |Blitz Fu|nctions.|
|000001c0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 00 00 2e 49 6e 69 | 74 69 61 6c 69 73 65 5f |--...Ini|tialise_|
|000001f0| 55 44 50 00 80 09 20 49 | 6e 69 74 69 61 6c 69 73 |UDP... I|nitialis|
|00000200| 65 5f 55 44 50 7b 68 6f | 73 74 24 2c 70 6f 72 74 |e_UDP{ho|st$,port|
|00000210| 2e 77 7d 00 20 20 80 15 | 20 73 6f 63 6b 2e 6c 2c |.w}.  ..| sock.l,|
|00000220| 68 6f 73 74 28 29 2c 68 | 6f 73 74 6c 65 6e 28 29 |host(),h|ostlen()|
|00000230| 2c 70 6f 72 74 5f 75 73 | 65 64 00 20 20 3b 00 20 |,port_us|ed.  ;. |
|00000240| 20 3b 20 4f 70 65 6e 20 | 55 44 50 20 73 6f 63 6b | ; Open |UDP sock|
|00000250| 65 74 20 61 6e 64 20 62 | 69 6e 64 20 69 74 20 74 |et and b|ind it t|
|00000260| 6f 20 61 20 70 6f 72 74 | 20 6e 75 6d 62 65 72 00 |o a port| number.|
|00000270| 20 20 3b 20 52 65 74 75 | 72 6e 20 74 72 75 65 20 |  ; Retu|rn true |
|00000280| 6f 72 20 46 61 6c 73 65 | 20 69 66 20 73 75 63 63 |or False| if succ|
|00000290| 65 73 73 66 75 6c 20 6f | 72 20 6e 6f 74 00 20 20 |essful o|r not.  |
|000002a0| 3b 00 00 20 20 6c 69 62 | 2e 6c 3d fe cf 28 22 62 |;..  lib|.l=..("b|
|000002b0| 73 64 73 6f 63 6b 65 74 | 2e 6c 69 62 72 61 72 79 |sdsocket|.library|
|000002c0| 22 2c 30 29 20 20 20 3b | 20 63 68 65 63 6b 20 74 |",0)   ;| check t|
|000002d0| 6f 20 73 65 65 20 69 66 | 20 61 20 54 43 50 2f 49 |o see if| a TCP/I|
|000002e0| 50 20 73 74 61 63 6b 20 | 69 73 20 72 75 6e 6e 69 |P stack |is runni|
|000002f0| 6e 67 00 20 20 80 0b 20 | 6c 69 62 3d 30 00 20 20 |ng.  .. |lib=0.  |
|00000300| 20 20 80 09 20 80 07 20 | bc 0f 00 20 20 80 22 00 |  .. .. |...  .".|
|00000310| 20 20 20 20 fe bb 28 6c | 69 62 29 20 20 20 20 20 |    ..(l|ib)     |
|00000320| 20 20 20 20 20 20 3b 20 | 63 6c 6f 73 65 20 6c 69 |      ; |close li|
|00000330| 62 20 61 67 61 69 6e 20 | 6f 72 20 4d 69 61 6d 69 |b again |or Miami|
|00000340| 20 77 6f 6e 27 74 20 65 | 78 69 74 00 20 20 20 20 | won't e|xit.    |
|00000350| 73 6f 63 6b 2e 6c 3d ec | 81 28 32 2c 32 2c 30 29 |sock.l=.|.(2,2,0)|
|00000360| 20 20 20 20 20 20 20 20 | 3b 20 6f 70 65 6e 20 55 |        |; open U|
|00000370| 44 50 20 73 6f 63 6b 65 | 74 00 20 20 20 20 80 0b |DP socke|t.    ..|
|00000380| 20 73 6f 63 6b 3d 2d 31 | 00 20 20 20 20 20 20 80 | sock=-1|.      .|
|00000390| 09 20 80 07 20 bc 0f 00 | 20 20 20 20 80 22 00 20 |. .. ...|    .". |
|000003a0| 20 20 20 20 20 20 20 2a | 61 2e 68 6f 73 74 65 6e |       *|a.hosten|
|000003b0| 74 3d ec 9f 28 68 6f 73 | 74 24 29 20 20 20 20 20 |t=..(hos|t$)     |
|000003c0| 3b 20 73 65 74 20 75 70 | 20 64 65 73 74 69 6e 61 |; set up| destina|
|000003d0| 74 69 6f 6e 20 61 64 64 | 72 65 73 73 20 74 6f 20 |tion add|ress to |
|000003e0| 73 65 6e 64 20 70 61 63 | 6b 65 74 73 20 74 6f 00 |send pac|kets to.|
|000003f0| 20 20 20 20 20 20 20 20 | 80 0b 20 2a 61 2e 68 6f |        |.. *a.ho|
|00000400| 73 74 65 6e 74 3d 30 00 | 20 20 20 20 20 20 20 20 |stent=0.|        |
|00000410| 20 20 20 80 09 20 80 07 | 20 bc 0f 00 20 20 20 20 |   .. ..| ...    |
|00000420| 20 20 20 20 80 c0 00 00 | 20 20 20 20 20 20 20 20 |    ....|        |
|00000430| 3b 43 6f 70 79 20 44 65 | 74 61 69 6c 73 20 74 6f |;Copy De|tails to|
|00000440| 20 6f 75 72 20 53 6f 63 | 6b 61 64 64 72 69 6e 20 | our Soc|kaddrin |
|00000450| 73 74 72 75 63 74 75 72 | 65 00 00 20 20 20 20 20 |structur|e..     |
|00000460| 20 20 20 62 62 3d fe db | 28 2a 61 2e 68 6f 73 74 |   bb=..|(*a.host|
|00000470| 65 6e 74 5c 68 5f 61 64 | 64 72 5f 6c 69 73 74 5c |ent\h_ad|dr_list\|
|00000480| 49 74 65 6d 41 2c 26 68 | 6f 73 74 28 30 29 5c 73 |ItemA,&h|ost(0)\s|
|00000490| 69 6e 5f 61 64 64 72 2c | 2a 61 2e 68 6f 73 74 65 |in_addr,|*a.hoste|
|000004a0| 6e 74 5c 68 5f 6c 65 6e | 67 74 68 29 00 00 20 20 |nt\h_len|gth)..  |
|000004b0| 20 20 20 20 20 20 68 6f | 73 74 28 30 29 5c 73 69 |      ho|st(0)\si|
|000004c0| 6e 5f 70 6f 72 74 3d 70 | 6f 72 74 20 20 20 20 20 |n_port=p|ort     |
|000004d0| 20 20 3b 53 65 74 20 70 | 6f 72 74 20 6e 75 6d 62 |  ;Set p|ort numb|
|000004e0| 65 72 00 20 20 20 20 20 | 20 20 20 68 6f 73 74 28 |er.     |   host(|
|000004f0| 30 29 5c 73 69 6e 5f 66 | 61 6d 69 6c 79 3d 32 20 |0)\sin_f|amily=2 |
|00000500| 20 20 20 20 20 20 20 3b | 53 65 74 20 74 79 70 65 |       ;|Set type|
|00000510| 20 74 6f 20 41 54 5f 49 | 4e 45 54 00 20 20 20 20 | to AT_I|NET.    |
|00000520| 20 20 20 20 68 6f 73 74 | 6c 65 6e 28 30 29 3d 80 |    host|len(0)=.|
|00000530| 2f 2e 73 6f 63 6b 61 64 | 64 72 69 6e 20 20 20 20 |/.sockad|drin    |
|00000540| 20 20 20 20 3b 47 65 74 | 20 6c 65 6e 67 74 68 20 |    ;Get| length |
|00000550| 6f 66 20 73 74 72 75 63 | 74 75 72 65 20 73 6f 63 |of struc|ture soc|
|00000560| 6b 61 64 64 72 69 6e 00 | 00 20 20 20 20 20 20 20 |kaddrin.|.       |
|00000570| 20 74 65 6d 70 3d 30 00 | 20 20 20 20 20 20 20 20 | temp=0.|        |
|00000580| 70 6f 72 74 5f 75 73 65 | 64 3d 70 6f 72 74 00 20 |port_use|d=port. |
|00000590| 20 20 20 20 20 20 20 80 | bb 00 20 20 20 20 20 20 |       .|..      |
|000005a0| 20 20 20 20 68 6f 73 74 | 28 30 29 5c 73 69 6e 5f |    host|(0)\sin_|
|000005b0| 70 6f 72 74 3d 70 6f 72 | 74 5f 75 73 65 64 20 20 |port=por|t_used  |
|000005c0| 3b 20 66 6f 72 20 74 65 | 73 74 69 6e 67 20 6f 6e |; for te|sting on|
|000005d0| 20 6c 6f 63 61 6c 68 6f | 73 74 2d 20 6b 65 65 70 | localho|st- keep|
|000005e0| 20 74 72 79 69 6e 67 20 | 6f 6e 65 20 70 6f 72 74 | trying |one port|
|000005f0| 20 61 74 20 61 20 74 69 | 6d 65 20 61 66 74 65 72 | at a ti|me after|
|00000600| 20 23 4c 4f 43 41 4c 50 | 4f 52 54 20 66 6f 72 00 | #LOCALP|ORT for.|
|00000610| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 ec 82 28 |        |  .. ..(|
|00000620| 73 6f 63 6b 2c 68 6f 73 | 74 28 30 29 2c 68 6f 73 |sock,hos|t(0),hos|
|00000630| 74 6c 65 6e 28 30 29 29 | 3d 30 20 20 20 20 3b 20 |tlen(0))|=0    ; |
|00000640| 62 69 6e 64 20 73 6f 63 | 6b 65 74 20 74 6f 20 70 |bind soc|ket to p|
|00000650| 6f 72 74 20 73 6f 20 77 | 65 20 63 61 6e 00 20 20 |ort so w|e can.  |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 80 09 20 80 07 20 |        |  .. .. |
|00000670| bc 0e 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 |..      |     ; r|
|00000680| 65 63 65 69 76 65 20 64 | 61 74 61 20 6f 6e 20 70 |eceive d|ata on p|
|00000690| 6f 72 74 00 20 20 20 20 | 20 20 20 20 20 20 80 22 |ort.    |      ."|
|000006a0| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 70 6f 72 |.       |     por|
|000006b0| 74 5f 75 73 65 64 2b 31 | 00 20 20 20 20 20 20 20 |t_used+1|.       |
|000006c0| 20 20 20 20 20 74 65 6d | 70 2b 31 00 20 20 20 20 |     tem|p+1.    |
|000006d0| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 20 20 20 |      ..|.       |
|000006e0| 20 80 bc 20 74 65 6d 70 | 3d 31 30 00 20 20 20 20 | .. temp|=10.    |
|000006f0| 80 c0 00 20 20 80 c0 00 | 80 02 20 80 09 00 00 2e |...  ...|.. .....|
|00000700| 52 65 61 64 55 44 50 00 | 80 09 20 2e 73 20 52 65 |ReadUDP.|.. .s Re|
|00000710| 61 64 55 44 50 7b 7d 00 | 20 20 80 15 20 73 6f 63 |adUDP{}.|  .. soc|
|00000720| 6b 2e 6c 2c 55 44 50 6d | 65 6d 2e 6c 2c 74 65 6d |k.l,UDPm|em.l,tem|
|00000730| 70 68 6f 73 74 2c 74 65 | 6d 70 68 6f 73 74 6c 65 |phost,te|mphostle|
|00000740| 6e 00 00 20 20 3b 20 54 | 68 69 73 20 46 75 6e 63 |n..  ; T|his Func|
|00000750| 74 69 6f 6e 20 72 65 61 | 64 73 20 64 61 74 61 20 |tion rea|ds data |
|00000760| 66 72 6f 6d 20 74 68 65 | 20 73 6f 63 6b 65 74 20 |from the| socket |
|00000770| 69 74 20 69 73 20 62 6f | 75 6e 64 20 74 6f 2e 00 |it is bo|und to..|
|00000780| 20 20 3b 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |  ; If t|here is |
|00000790| 6e 6f 20 6d 65 73 73 61 | 67 65 73 20 74 68 65 6e |no messa|ges then|
|000007a0| 20 69 74 20 77 69 6c 6c | 20 72 65 74 75 72 6e 20 | it will| return |
|000007b0| 61 6e 20 65 6d 70 74 79 | 20 73 74 72 69 6e 67 20 |an empty| string |
|000007c0| 3d 22 22 00 00 20 20 73 | 6f 63 6b 72 65 61 64 2e |=""..  s|ockread.|
|000007d0| 6c 3d 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l=0     |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007f0| 20 3b 43 6c 65 61 72 20 | 52 65 61 64 6d 61 73 6b | ;Clear |Readmask|
|00000800| 00 20 20 73 6f 63 6b 72 | 65 61 64 2e 6c 20 80 ce |.  sockr|ead.l ..|
|00000810| 20 73 6f 63 6b 2e 6c 20 | 20 20 20 20 20 20 20 20 | sock.l |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 3b 53 65 74 20 52 65 |        | ;Set Re|
|00000830| 61 64 6d 61 73 6b 20 6f | 6e 20 6f 75 72 20 73 6f |admask o|n our so|
|00000840| 63 6b 65 74 00 20 20 65 | 3d ec 8f 28 73 6f 63 6b |cket.  e|=..(sock|
|00000850| 2e 6c 2c 23 46 49 4f 4e | 52 45 41 44 2c 55 44 50 |.l,#FION|READ,UDP|
|00000860| 6d 65 6d 2e 6c 29 20 3b | 48 6f 77 20 6d 75 63 68 |mem.l) ;|How much|
|00000870| 20 64 61 74 61 20 69 73 | 20 74 68 65 72 65 3f 00 | data is| there?.|
|00000880| 20 20 66 2e 6c 3d da 02 | 2e 6c 28 55 44 50 6d 65 |  f.l=..|.l(UDPme|
|00000890| 6d 2e 6c 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.l)    |        |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 3b 50 6c 61 63 65 |        |  ;Place|
|000008b0| 20 76 61 6c 75 65 20 69 | 6e 20 66 00 00 20 20 80 | value i|n f..  .|
|000008c0| 0b 20 66 3e 30 20 20 20 | 20 20 20 20 20 20 20 20 |. f>0   |        |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008e0| 20 20 20 20 20 20 20 20 | 20 3b 20 61 6e 79 20 64 |        | ; any d|
|000008f0| 61 74 61 20 77 61 69 74 | 69 6e 67 00 20 20 20 20 |ata wait|ing.    |
|00000900| 74 65 6d 70 68 6f 73 74 | 6c 65 6e 3d 80 2f 20 2e |temphost|len=./ .|
|00000910| 73 6f 63 6b 61 64 64 72 | 69 6e 00 20 20 20 20 63 |sockaddr|in.    c|
|00000920| 3d ec 88 28 73 6f 63 6b | 2e 6c 2c 55 44 50 6d 65 |=..(sock|.l,UDPme|
|00000930| 6d 2e 6c 2c 66 2c 30 2c | 74 65 6d 70 68 6f 73 74 |m.l,f,0,|temphost|
|00000940| 2c 74 65 6d 70 68 6f 73 | 74 6c 65 6e 29 20 20 3b |,temphos|tlen)  ;|
|00000950| 52 65 61 64 20 61 6c 6c | 20 64 61 74 61 20 77 61 |Read all| data wa|
|00000960| 69 74 69 6e 67 20 6f 6e | 20 73 6f 63 6b 65 74 00 |iting on| socket.|
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 61 6e 64 20 |        |   ;and |
|000009b0| 67 65 74 20 68 6f 73 74 | 20 69 74 20 77 61 73 20 |get host| it was |
|000009c0| 73 65 6e 74 20 66 72 6f | 6d 20 69 6e 20 74 65 6d |sent fro|m in tem|
|000009d0| 70 68 6f 73 74 00 20 20 | 20 20 80 0b 20 63 3e 30 |phost.  |  .. c>0|
|000009e0| 20 20 20 20 3b 20 69 66 | 20 74 68 65 72 65 20 61 |    ; if| there a|
|000009f0| 6e 79 20 64 61 74 61 20 | 77 61 69 74 69 6e 67 00 |ny data |waiting.|
|00000a00| 20 20 20 20 20 20 20 20 | 61 3d 30 20 3a 20 63 24 |        |a=0 : c$|
|00000a10| 3d 22 22 00 20 20 20 20 | 20 20 20 20 80 bb 00 20 |="".    |    ... |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 63 24 3d 63 24 |        |   c$=c$|
|00000a30| 2b dc 86 28 da 02 2e 62 | 28 55 44 50 6d 65 6d 2b |+..(...b|(UDPmem+|
|00000a40| 61 29 29 20 3a 20 61 2b | 31 20 20 20 20 3b 20 62 |a)) : a+|1    ; b|
|00000a50| 75 69 6c 64 20 73 74 72 | 69 6e 67 00 20 20 20 20 |uild str|ing.    |
|00000a60| 20 20 20 20 80 bc 20 61 | 3d 63 00 20 20 20 20 80 |    .. a|=c.    .|
|00000a70| c0 00 00 20 20 80 c0 00 | 00 20 20 80 09 20 80 07 |...  ...|.  .. ..|
|00000a80| 20 63 24 00 80 02 20 80 | 09 00 00 2e 57 72 69 74 | c$... .|....Writ|
|00000a90| 65 55 44 50 00 80 08 20 | 57 72 69 74 65 55 44 50 |eUDP... |WriteUDP|
|00000aa0| 7b 61 64 2e 6c 2c 73 69 | 7a 65 2e 77 2c 70 6c 61 |{ad.l,si|ze.w,pla|
|00000ab0| 79 65 72 7d 00 20 20 80 | 15 20 73 6f 63 6b 2e 6c |yer}.  .|. sock.l|
|00000ac0| 2c 68 6f 73 74 28 29 2c | 68 6f 73 74 6c 65 6e 28 |,host(),|hostlen(|
|00000ad0| 29 2c 74 65 6d 70 68 6f | 73 74 2c 74 65 6d 70 68 |),tempho|st,temph|
|00000ae0| 6f 73 74 6c 65 6e 00 00 | 20 20 3b 20 54 68 69 73 |ostlen..|  ; This|
|00000af0| 20 72 6f 75 74 69 6e 65 | 20 77 72 69 74 65 73 20 | routine| writes |
|00000b00| 64 61 74 61 20 76 69 61 | 20 55 44 50 00 00 20 20 |data via| UDP..  |
|00000b10| 73 6f 63 6b 77 72 69 74 | 65 2e 6c 3d 30 20 20 20 |sockwrit|e.l=0   |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b30| 20 20 20 20 20 20 3b 43 | 6c 65 61 72 20 57 72 69 |      ;C|lear Wri|
|00000b40| 74 65 6d 61 73 6b 00 20 | 20 73 6f 63 6b 77 72 69 |temask. | sockwri|
|00000b50| 74 65 2e 6c 20 80 ce 20 | 73 6f 63 6b 2e 6c 20 20 |te.l .. |sock.l  |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 3b 73 65 74 20 |        |   ;set |
|00000b70| 57 72 69 74 65 6d 61 73 | 6b 20 6f 6e 20 6f 75 72 |Writemas|k on our|
|00000b80| 20 73 6f 63 6b 65 74 00 | 20 20 67 3d ec 91 28 32 | socket.|  g=..(2|
|00000b90| 2c 30 2c 26 73 6f 63 6b | 77 72 69 74 65 2e 6c 2c |,0,&sock|write.l,|
|00000ba0| 30 2c 30 2c 30 29 20 3b | 57 61 69 74 20 75 6e 74 |0,0,0) ;|Wait unt|
|00000bb0| 69 6c 20 73 65 72 76 65 | 72 20 69 73 20 72 65 61 |il serve|r is rea|
|00000bc0| 64 79 20 74 6f 20 72 65 | 61 64 20 6f 75 72 20 64 |dy to re|ad our d|
|00000bd0| 61 74 61 00 00 20 20 80 | 0b 20 70 6c 61 79 65 72 |ata..  .|. player|
|00000be0| 3e 30 00 20 20 20 20 63 | 3d ec 86 28 73 6f 63 6b |>0.    c|=..(sock|
|00000bf0| 2e 6c 2c 61 64 2c 73 69 | 7a 65 2c 30 2c 68 6f 73 |.l,ad,si|ze,0,hos|
|00000c00| 74 28 70 6c 61 79 65 72 | 29 2c 68 6f 73 74 6c 65 |t(player|),hostle|
|00000c10| 6e 28 70 6c 61 79 65 72 | 29 29 20 20 20 20 3b 53 |n(player|))    ;S|
|00000c20| 65 6e 64 20 64 61 74 61 | 20 74 6f 20 6f 6e 6c 69 |end data| to onli|
|00000c30| 6e 65 20 68 6f 73 74 00 | 20 20 80 22 00 20 20 20 |ne host.|  .".   |
|00000c40| 20 63 3d ec 86 28 73 6f | 63 6b 2e 6c 2c 61 64 2c | c=..(so|ck.l,ad,|
|00000c50| 73 69 7a 65 2c 30 2c 74 | 65 6d 70 68 6f 73 74 2c |size,0,t|emphost,|
|00000c60| 74 65 6d 70 68 6f 73 74 | 6c 65 6e 29 20 20 20 20 |temphost|len)    |
|00000c70| 20 20 20 20 20 20 20 20 | 3b 53 65 6e 64 20 64 61 |        |;Send da|
|00000c80| 74 61 20 74 6f 20 68 6f | 73 74 20 74 68 61 74 27 |ta to ho|st that'|
|00000c90| 73 20 6e 6f 74 20 63 6f | 6e 6e 65 63 74 65 64 00 |s not co|nnected.|
|00000ca0| 20 20 80 c0 00 80 02 20 | 80 08 00 00             |  ..... |....    |
+--------+-------------------------+-------------------------+--------+--------+